Option Explicit
Sub C_Sample053()
    Dim myWState  As Long
    Dim myLeft    As Double
    Dim myWidth   As Double
    Dim myMaxLeft As Double
    With Application
        myWState = .WindowState
        myWidth = .Width
        myLeft = .Left
	.WindowState = xlMaximized
	myMaxLeft = .Width
        .WindowState = xlNormal
        .Left = myMaxLeft
        If MsgBox("wNExcelʨe~C" _
        & vbCrLf & "n٭쬰AܡH" _
        , vbInformation + vbYesNo) = vbNo Then Exit Sub
        .WindowState = myWState
        If .WindowState <> xlMaximized Then
	   .Left = myLeft
	   .Width = myWidth
	End If
    End With
End Sub
